﻿Imports System
Imports System.Collections

Public Class EscanerBE
#Region "Campos y Propiedades"
    Private _IdEscaner As Integer
    Private _Nombre As String
    Private _Descripcion As String
    Private _TarjetaCalibradora As String
    Private _TipoArchivo As String
    Private _Resolucion As Integer
    Private _Duplex As Boolean
    Private _Formato As String
    Private _FechaCreacion As String
    Private _EliminarDesviacion As Boolean
    Private _EliminarBlancos As Boolean


    Public Property IdEscaner() As Integer
        Get
            Return _IdEscaner
        End Get
        Set(ByVal value As Integer)
            _IdEscaner = value
        End Set
    End Property
    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Set(ByVal value As String)
            _Nombre = value
        End Set
    End Property
    Public Property Descripcion() As String
        Get
            Return _Descripcion
        End Get
        Set(ByVal value As String)
            _Descripcion = value
        End Set
    End Property
    Public Property TarjetaCalibradora() As String
        Get
            Return _TarjetaCalibradora
        End Get
        Set(ByVal value As String)
            _TarjetaCalibradora = value
        End Set
    End Property
    Public Property TipoArchivo() As String
        Get
            Return _TipoArchivo
        End Get
        Set(ByVal value As String)
            _TipoArchivo = value
        End Set
    End Property
    Public Property Resolucion() As Integer
        Get
            Return _Resolucion
        End Get
        Set(ByVal value As Integer)
            _Resolucion = value
        End Set
    End Property
    Public Property Duplex() As Boolean
        Get
            Return _Duplex
        End Get
        Set(ByVal value As Boolean)
            _Duplex = value
        End Set
    End Property
    Public Property Formato() As String
        Get
            Return _Formato
        End Get
        Set(ByVal value As String)
            _Formato = value
        End Set
    End Property
    Public Property FechaCreacion() As String
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As String)
            _FechaCreacion = value
        End Set
    End Property
    Public Property EliminarDesviacion() As Boolean
        Get
            Return _EliminarDesviacion
        End Get
        Set(ByVal value As Boolean)
            _EliminarDesviacion = value
        End Set
    End Property
    Public Property EliminarBlancos() As Boolean
        Get
            Return _EliminarBlancos
        End Get
        Set(ByVal value As Boolean)
            _EliminarBlancos = value
        End Set
    End Property

#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

#End Region
End Class

Public Class EscanerBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As EscanerBE
        Get
            Return CType(List(index), EscanerBE)
        End Get
        Set(ByVal value As EscanerBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As EscanerBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As EscanerBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As EscanerBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As EscanerBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As EscanerBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class



